BBS in a Box 7/BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso/Files/Education/T-Z/TeachTime.cpt/TeachTime/stack.txt

Text File | 1990-01-18 | 5KB | 181 lines

-- stack: in
-- format: 8 (HyperCard 1)
-- flags: 0x1000 (none)
-- protect password hash: 0
-- maximum user level: 5 (scripting)
-- window: Rect(x1=0, y1=0, x2=0, y2=0)
-- screen: Rect(x1=0, y1=0, x2=0, y2=0)
-- card dimensions: w=0 h=0
-- scroll: x=0 y=0
-- background count: 2
-- first background id: 2623
-- card count: 3
-- first card id: 4410
-- list block id: 3160
-- print block id: 0
-- font table block id: 0
-- style table block id: 0
-- free block count: 0
-- free size: 0 bytes
-- total size: 14336 bytes
-- stack block size: 4096 bytes
-- created by hypercard version: 0x01208000
-- compacted by hypercard version: 0x01228000
-- modified by hypercard version: 0x01228000
-- opened by hypercard version: 0x01228000
-- patterns[0]: 0x0000000000000000
-- patterns[1]: 0x8000000008000000
-- patterns[2]: 0x8800220088002200
-- patterns[3]: 0x8888222288882222
-- patterns[4]: 0x88AA22AA88AA22AA
-- patterns[5]: 0xCCAA33AACCAA33AA
-- patterns[6]: 0xEEAABBAAEEAABBAA
-- patterns[7]: 0xEEBBBBEEEEBBBBEE
-- patterns[8]: 0xFFBBFFEEFFBBFFEE
-- patterns[9]: 0xFFBBFFFFFFBBFFFF
-- patterns[10]: 0x0000400800182002
-- patterns[11]: 0xFFFFFFFFFFFFFFFF
-- patterns[12]: 0x8822882288228822
-- patterns[13]: 0x1122448811224488
-- patterns[14]: 0xC4800C6843023026
-- patterns[15]: 0xB130031BD8C00C8D
-- patterns[16]: 0xAA00AA00AA00AA00
-- patterns[17]: 0x8822552288225522
-- patterns[18]: 0x8855225588552255
-- patterns[19]: 0x77DD77DD77DD77DD
-- patterns[20]: 0x8000000000000000
-- patterns[21]: 0xAA55AA55AA55AA55
-- patterns[22]: 0x038448300C020101
-- patterns[23]: 0x8244394482010101
-- patterns[24]: 0x8814224188412214
-- patterns[25]: 0x8080413E080814E3
-- patterns[26]: 0x22048C7422179810
-- patterns[27]: 0xBE808808EB088880
-- patterns[28]: 0x25C8328964244C92
-- patterns[29]: 0xA29C41BE2AC914EB
-- patterns[30]: 0x40A00000040A0000
-- patterns[31]: 0x8040200002040800
-- patterns[32]: 0xAA00800088008000
-- patterns[33]: 0xFF80808080808080
-- patterns[34]: 0x081C22C180010204
-- patterns[35]: 0xFF808080FF080808
-- patterns[36]: 0xF87422478F172271
-- patterns[37]: 0xBF00BFBFB0B0B0B0
-- patterns[38]: 0xFF7FBE5DA2418000
-- patterns[39]: 0xFAF5FAF5A050A050
-- checksum: 0x0
----- HyperTalk script -----
on idle
  -- Copyright 1988 Mike Kazmierczak
  --  All rights reserved.
end idle

on openStack
  global snd
  hide menuBar
  put empty into cd fld time of cd 2
  put empty into cd fld time of cd 3
  put "A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z" into snd
end openStack

on closeStack
  show menubar
  pass closeStack
end closestack

on showIt
  global snd,xc,yc,rho
  put 1+random(11) into h
  put random(59) into m
  if m<10
  then put "0" into z
else put empty into z
put h & ":" & z & m into cd fld time
if "analog" is in short name of this cd then
  choose select tool
  set cursor to busy
  drag from xc-rho-1,yc-rho-1 to xc+rho+1,yc+rho+1
  doMenu "Clear Picture"
  if hilite of btn Easy then
    set cursor to busy
    put 5*random(12)-5 into m
  else if hilite of btn Beginner then
    put 30*random(2)-30 into m
  end if
  if m<10
  then put "0" into z
else put empty into z
put h & ":" & z & m into cd fld time
set cursor to busy
put m/60*2*pi-pi/2 into m0
put h*pi/6+m*pi/360-pi/2 into h0
choose line tool
set cursor to busy
set the lineSize to 3
put trunc(.5+xc+.9*rho*cos(m0)) into xm
put trunc(.5+yc+.9*rho*sin(m0)) into ym
drag from xc,yc to xm,ym
set cursor to busy
set the lineSize to 6
put trunc(.5+xc+rho*.5*cos(h0)) into xh
put trunc(.5+yc+rho*.5*sin(h0)) into yh
set cursor to busy
drag from xc,yc to xh,yh
choose browse tool
end if
end showIt

on sayIt
  get line 1 of cd fld time
  put number of chars of it into n
  put char n-1 to n of it into m
  get char 1 to 3 of it
  if last char of it is not ":" then delete last char of it
  delete last char of it
  put it into h
  if h<0 or h>12 or m<0 or m>59 then
    beep
    put "Not a valid time..."
    wait 2 secs
    hide message box
    put empty into cd fld time
    exit sayIt
  end if
  playIt h
  if m=0 then
    play Y
  else
    if m<10 then play x
    playIt m
  end if
end sayIt

on playIt a
  global snd
  if a<20 then
    play item a of snd
    exit playIt
  end if
  if a<30 and a>19 then
    play t
    if a≠20 then play item (a-20) of snd
    exit playIt
  end if
  if a<40 and a>29 then
    play u
    if a≠30 then play item (a-30) of snd
    exit playIt
  end if
  if a<50 and a>39 then
    play v
    if a≠40 then play item (a-40) of snd
    exit playIt
  end if
  if a>49 then
    play w
    if a≠50 then play item (a-50) of snd
    exit playIt
  end if
end playIt